home *** CD-ROM | disk | FTP | other *** search
/ Adventures with Oslo: Tools & Gadgets / Adventures with Oslo - Tools and Gadgets.ISO / mac / Studio / Studio.Dir / 00056_myQuit.ls < prev    next >
Encoding:
Text File  |  1994-09-23  |  474 b   |  22 lines
  1. on enterFrame
  2.   global screenObj, saveObj, skObj, GHarddiskpath
  3.   puppetSound(0)
  4.   if objectp(saveObj) then
  5.     saveObj(mdispose)
  6.   end if
  7.   if objectp(screenObj) then
  8.     screenObj(mdispose)
  9.   end if
  10.   if objectp(skObj) then
  11.     skObj(mdispose)
  12.   end if
  13.   if the machineType = 256 then
  14.     closeXLib("@::scikids.dll")
  15.     closeXLib("@::fileio.dll")
  16.   else
  17.     closeXLib("StageToPICT.XObj")
  18.     closeXLib("StageToCast.XObj")
  19.   end if
  20.   go(1, GHarddiskpath & "OsloMain")
  21. end
  22.